home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Directorty Opus 5 - Magellan
/
Opus 5 - Magellan.iso
/
Archiv
/
DOpusNorsk511.lha
/
dopus511norsk
/
Installer
next >
Wrap
Text File
|
1995-07-18
|
2KB
|
76 lines
; $VER: Install Opus5 Norsk (18.7.95)
; Script to install the Norsk catalog translation for Opus 5.11.
; Adapted from Edmund Vermeulen's Dutch version
; by Dr Greg Perry (GPSoftware)
;=============================================================================
; check if Directory Opus 5 is already installed
(if (not (exists "DOpus5:DirectoryOpus" (noreq)))
(abort "Directory Opus 5 must be installed first.")
)
(set @default-dest "")
;=============================================================================
; install catalogs
(copyfiles
(source "Catalogs")
(dest "DOpus5:Catalogs")
(pattern "#?")
)
;=============================================================================
; install Norsk version of buttons banks
(copyfiles
(source "Buttons")
(dest "DOpus5:Buttons")
(pattern "#?")
)
;=============================================================================
; make Norsk lister menu the default
(if
(askbool
(prompt "Norsk versions of the standard lister pop-up menu "
"is available\n\n"
"Do you wish to install this and rename the old one as\n"
"'lister menu_old'."
)
(help "Installs the Norsk version of the default lister popup ")
)
(
(rename "DOpus5:Buttons/lister menu" "DOpus5:Buttons/lister menu_old")
(copyfiles
(source "DOpus5:Buttons/lister menu_norsk")
(dest "DOpus5:Buttons")
(newname "lister menu")
)
)
)
;=============================================================================
; make Norsk user menu the default
(if
(askbool
(prompt "Norsk versions of the user menus is available.\n\n"
"Do you wish to install this and rename the old one as\n"
"'user menu_old'."
)
(help "Installs the Norsk version of the default user menu ")
)
(
(rename "DOpus5:Buttons/user menu" "DOpus5:Buttons/user menu_old")
(copyfiles
(source "DOpus5:Buttons/user menu_norsk")
(dest "DOpus5:Buttons")
(newname "user menu")
)
)
)
(exit)